Asymetrix Multimedia Toolbook 4.0 (CBT Edition)

home *** CD-ROM | disk | FTP | other *** search

/ Asymetrix Multimedia Toolbook 4.0 (CBT Edition) / Asymetric Multimedia Toolbook 4.0 (CBT Edition).iso / ctb40ap.z / NAMEPART.SPB (.txt) < prev next >

Wrap

Asymetrix ToolBook File | 1996-01-10 | 139KB | 2,549 lines

F 8 8 L *ClassTbl* *ClassEntry* *PTABLE* *WINDOWSEG* *ICONRESTAB* *ICONRESSEG* *ICONRES* Background *OBJTABLE* *IDTABLE* *NAMETAB* Rectangle Ellipse RoundedRectangle Polygon IrregularPolygon AngledLine Curve PaintObject Picture Group Stage Button Viewer ComboBox Field RecordField Hotword *RHOTWORD* *TbxBase* 8 bxBase* F 8 9 TB40HYP.SBK bxBase* FALSE wwwwww wz'www z'z"ww wwwwz wwwwww wwwwww wwwwww &File &Open Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear &Select All Shift+F9 selectall S&elect Page Shift+F12 selectpage F&ind... F5 search Re&place... replace &Author F3 author &Text &Character... F6 character &Paragraph... F7 paragraph Plai&n plain &Bold Ctrl+B I&talic Ctrl+T italic Under&line Ctrl+L underline Stri&keout Ctrl+K strikeout S&uper/subscript super/subscript &Normal script normalscript Su&bscript subscript Su&perscript superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right P&revious Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 index &Search for Help On... glossary &Tutorial tutorial &How To Use Help usinghelp &Keyboard keyboard C&ommands commands &About ToolBook... abouttoolbook addAnswer ASYM_WID_ANSWERS FALSE buttonclick startTime ASYM_WID_ANSWERS count enterPage startTime count startTime FALSE currentTime ASYM_Ticks count You have selected options that may be incompatible when It is recommended that you enable Allow Multiple Answers and do not use feedback for <else>, Cannot Change Responses or Reject Unrecognized Objects ASYM_GetString more than one question of this type is on the page. MultiDrop Exception Warning WarningString ,&H.& ASYM_WID_QType ASYM_WID_RejectWrong objList FALSE Fix It s_wid_targetObject ASYM_WID_AutoLockAnswer MULTIDROP wZASYM_CollectWidgets oansArray fixitStr `WarningString answers s_wid_targetWindow ASYM_GetString Ignore oansArray ignoreStr propValue buttonClick update UpdateThisPage update enterPage None specified false (None specified) feedback found ASYM_WID_DelayFeedback ASYM_GetString Disabled Enabled oAnsArray Immediate Feedback: %1 %2 Immediate Feedback x y 7wASYM_Container update ,"JdY propValue ,"JdY propValue theWeight ASYM_WID_ANSWERS propValue oansArray oansArray propValue leaveField ASYM_WID_ANSWERS oansArray propValue FixupWeights FBNavBook FBNavPage field buttonDoubleClick ,&H.& ,&H.& ,&H.& ,&H.& ,&H.& fldNavPg fldNavBk FBNavBook false this book OKmsg OKdestPg FBPlayText FBNavPage OKtxt fldOsMsg OKdestBk ASYM_GetString OKclip fldTxt fldClip FBSendMsg FBPlayClip g8BlankThisPage UpdateThisPage FBNavBook FBPlayText FBNavPage FBSendMsg FBPlayClip blankThisPage ClastSel leavePage ClastSel leaveBackground ClastSel ASYM_Reset ASYM_GetString DelayedFeedbackForMultiObjects d6fbArray All Incorrect HsupdateThisPage All Correct initFBArray Partially Correct ClastSel ClastSel enterPage background s_wid_targetObject P#ASYM_WID_SummaryFeedback initFBArray e6fbArray 7wASYM_Container propValue background Incorrect Correct Partially Correct e6fbArray 7wASYM_Container initFBArray d6fbArray s_wid_targetObject Q#ASYM_WID_SummaryFeedback propValue d6fbArray hitChar hitLine ClastSel ClastSel ASYM_itemOffset buttonDown d6fbArray lastSel toggleAnchor HsUpdateThisPage whatItem ClastSel g8blankThisPage buttonUp ClastSel enterBackground ,&H.& d6fbArray HsupdateThisPage e6fbArray updateCurrentAnswer FuupdateCurrentAnswer setTextFeedback FuupdateCurrentAnswer setMsgFeedback FuupdateCurrentAnswer setNavPage FuupdateCurrentAnswer this book GetString setNavBook WidgetHasElseAnswer WidgetHasMultipleAnswers .'+ +F oAnsArray ASYM_reset ASYM_reset ,&H.& propsRead FALSE ASYM_WID_Answers ListToTextLine ~\WidgetHasElseAnswer ASYM_WID_AnsArray false readObjProps <else> VWidgetHasMultipleAnswers oAnsArray mxAllowMultipleAnswer tb40dlg.dll s_wid_targetObject FASYM_WID_AutoScoreWeight autoAssignWeight enterBackground propsRead readObjProps enterPage lxallowMultipleAnswer FALSE oansArray autoAssignWeight oansArray fixupWeights propType propType field,recordfield,button,group,combobox s_wid_targetWindow s_wid_targetObject propType s_wid_targetWindow s_wid_targetObject oType propName propsRead propValue oType propName readObjProps .'+ +F ,&H.& propType object propType Warning: Editor window closed out of sequence. field,recordfield,button,group,combobox <self> afterEdit propType s_wid_targetWindow s_wid_targetObject setString oType propValue propName setString s_wid_targetObject propValue ASYM_WID_AnsArray s_wid_targetWindow ASYM_Reset ASYM_Q tbk_wid_name oAnsArray default oType propName propValue Cancel oansArray numCorrect oansArray numAnswers updateThisPage blankThisPage ASYM_WID_ANSWERS enterPage ansFld d6fbArray ASYM_WID_ANSWERS false s_wid_targetObject NavPage Feedback selLines OSMsg HsUpdateThisPage ASYM_WID_SummaryFeedbackList _ASYMA_EditFeedback oansArray oansArray e6fbArray hyperlink buttonClick .'+ +F ShowCurrentTab Button buttonClick ShowCurrentTab _currentTab enterPage ShowCurrentTab _currentTab resizeTabs box black box grey hilite sized tabRow current Tab Edge _currentTab resizeTabs defBounds _currentTab ShowCurrentTab currentRow ArrangeRow 4ArrangeCheats resizeTabs V, #? V, #? \:resizeTabEdge defBounds tabEdge ArrangeRow cheat grey cheat white cheat black arrangeCheats white black resizeTabEdge ClastSel leavePage ClastSel leaveBackground ClastSel ASYM_Reset multiSelect feedback delayed feedback fixAnsArray oplastItem lastItem SingleSelect oansArray HsUpdateThisPage pgName general ClastSel propValue g8BlankThisPage enterPage background FALSE s_wid_targetObject fixupLine ASYM_WID_AnsArray Anything else magic string <else> ASYM_GetString oansArray elseString oansArray 7wASYM_Container propValue ,"Jc" GUASYM_isNumber background s_wid_targetObject noStr The positive answer weights DistributeWeights ASYM_WID_AnsArray ASYM_GetString yesStr autoAssignWeight don't add up to 100%. Redistribute automatically? oansArray 7wASYM_Container propValue DistributeWeights ASYM_GetString modal addAnswer FALSE dlgPage prepDlgCB Add an Answer subdialog FixupLine answer oplastItem score correct dlgCB oansArray ASYM_ShowDialog oansArray propValue HsUpdateThisPage answerWeight addAnswer objList FALSE s_wid_TargetObject ListToTextLine [useObjectType useObjectType s_wid_TargetWindow whatName sortList ASYM_itemOffset prepDlgCB ASYM_GetString modal addAnswer Edit the Answer FALSE dlgPage prepDlgCB oplastItem subdialog fixupLine answer score whatItem correct dlgCB oansArray ASYM_ShowDialog g8BlankThisPage oansArray propValue answerWeight HsUpdateThisPage editAnswer w, #> oplastItem whatItem ASYM_GetString yesStr oansArray Delete answer "%1"? oansArray HsUpdateThisPage g8BlankThisPage deleteAnswer ,&H.& answer oansArray fixAnsArray whatItem editAnswer answers buttonDoubleClick multiSelect hitChar hitLine oansArray ClastSel ASYM_itemOffset buttonDown 8fixupWeights fixupLine whatItem oansArray autoAssignWeight oansArray toggleCorrect lastSel KtoggleCorrect HsUpdateThisPage whatItem ClastSel oansArray g8blankThisPage buttonUp ClastSel enterBackground subscript answer ASYM_GetStandardString myColor <else> correct fixupLine FBNavBook FBNavPage field buttonDoubleClick ,&H.& ,&H.& ,&H.& ,&H.& ,&H.& fldNavPg fldNavBk FBNavBook false this book OKmsg OKdestPg FBPlayText FBNavPage OKtxt fldOsMsg OKdestBk ASYM_GetString OKclip fldTxt fldClip FBSendMsg FBPlayClip g8BlankThisPage UpdateThisPage FBNavBook FBPlayText FBNavPage FBSendMsg FBPlayClip blankThisPage ist" of Pa buttonclick mode = FALSE = BLACK addAnswer "ASYM_WID_ANSWERS" notifyAfter startTime = NULL /) <= 1) count = ASYM_Ticks() currentTime = + 200 = LIGHTGRAY + 200 -- This specific the MULTIDROP widget WarningString ASYM_GetString("MultiDrop Exception "You have selected options that may be incompatible "more than one question type ."&&\ recommended ^you enable Allow Multiple Answers"&&\ xuse feedback >,"&&\ "Cannot Change Responses Reject Unrecognized Objects") buttonClick SYSTEM s_wid_targetWindow, s_wid_targetObject LOCAL ARRAY ansArray[][] B"ASYM_WID_AutoLockAnswer" "answers" = TRUE B"ASYM_WID_RejectWrong" B"ASYM_WID_MultipleAnswers" ]FALSE dimensions( )][12] <> NULL )][13] <> )][15] <> objList = ASYM_CollectWidgets() ASYM_WID_QType R = " _ <> ignoreStr = Ignore") fixitStr = Fix It") "&" & "&" & pg = propValue pg = pg = pg = )][12] = )][13] = )][15] = notifyAfter UpdateThisPage selLines, AnsArray[][] Hreference update notifyBefore LOCAL FBArray[][] WORD i, j par1, par2 B"ASYM_WID_DelayFeedback"\ "feedback" ASYM_Container( T = ASYM_GetString("Enabled") found = ss = n = dimensions( j >= 3 j <= 12 i][j] <> None specified","( Disabled") = expandString( Immediate x y",\ : %1 %2"), propValue val = isType(real, < 0 x = -1 x = 1 B*100),100),-1) * x LOCAL ARRAY ansArray[][] theWeight = SelectedTextLines "ASYM_WID_ANSWERS" AnsArray[i][11] = notifyAfter FixupWeights ay[][] t][11] "FBNavBook" B"FBNavPage" t <> UpdateThisPage selLines, AnsArray[][] Hreference, pg LOCAL txt,txtSpec, clipSpec, waitFlag, StageRef, OSMsg, DestPg, DestBk y; pg = BlankThisPage i = ansArray[i][12] OKtxt = 0tem j ][12] <> i = stageRef = OKclip = i = 3] <> 3] <> 3] <> i = OKmsg = ][15] <> i = OKdestPg = ][2] <> i = OKdestBk = ][4] <> -- visual update here oldLock = lockScreen fldTxt = "FBPlayText" fldClip = "FBPlayClip" fldOsMsg = "FBSendMsg" fldNavPg = fldNavBk = ASYM_GetString(" blankThisPage = lightGray notifyBefore olastSel = oselectedTextLines AASYM_Reset LOCAL ARRAY fbArray[][] = ASYM_GetString("DelayedFeedbackForMultiObjects",\ "All Correct" &CRLF& " Incorrect" & Partially bg = ss = = ss; dimensions( ) = 0 initFBArray updateThisPage propValue SYSTEM {s_wid_targetObject -- -- " a dummy. o sets up the main used work fanswers bg = ASYM_Container( ss = = FALSE = ASYM_WID_SummaryFeedback bg = Hreference 1][1] = " 2][1] = " 3][1] = " /") = -- function returns a value; side effect, because you can't REAL weights {loc, isShift, isCtrl hitLine hitChar sel = > textlineCount( n = n = temp = n n = hitline ASYM_itemOffset( , sel) whatItem toggleAnchor blankThisPage UpdateThisPage updateCurrentAnswer i, newVal L = L][i] = setTextFeedback txt, option r 12, r 14, setMsgFeedback msgString r 15, setNavPage pgName, pgCaption setNavBook bookName 8", "") = "" WidgetHasElseAnswer -- This pseudo property /controls whether -- there should be >" answer -- The < > option used only Question widgets -- that have -ended Woptions. -- Not fTRUE/FALSE questions, example WidgetHasMultipleAnswers enable multiple answers )the same ASYM_reset oAnsArray -- buttonclick B"CANCEL" -- syscuror = default S = keyEnter -- B"OK" -- -- SYSTEM s_wid_targetObject, s_wid_targetWindow LOCAL linkDLL "tb40dlg.dll" STRING ListToTextLine( = ASYM_WID_AnsArray dimensions( .) = 0 -- There was no ARRAY stored -- no defined. ansArray[1][1] = "< 0] = &1] = 0 -- Preset compatibility folder oautoAssignWeight = (ASYM_WID_AutoScoreWeight \ "ASYM_WID_Answers" pg = propsRead pg = readObjProps pg AllowMultipleAnswer fixupWeights autoSpread REAL TotalPositive WORD i, n, nCorrect CorrectList, IncorrectList allowMultipleAnswer = ( n = [i][11] istype( [i][10] = [i][10] = InCorrectList n > 0 totalPositive > 0 theWeight = 1 / k <> ][11] = _(1 / ][11] = ][11] * ][11] = ][11])) ][11] = ][11],0) -- Get settings -- If a has a "propValue" -- use value -- dialog {. Checked checkboxes can be %such. = NULL bg = y; pg = objs = getObjectList(pg," ,combobox", propType = oType = propName = " && #&& " " && pg = -- Where they differ {, change -- If a {. Unactivated xisOpen "Warning: Editor eclosed out sequence." FlushMessageQueue() bg = pg = t(pg," " && " && QUOTE proptype = " nam = h(propvalue) setString = " " && " && && " " && & obj && " && " && && " " && " && " && && " " && tbk_wid_name = "ASYM_Q" ASYM_Reset "afterEdit" Cancel numCorrect [i][10] numAnswers updateThisPage selLines, Hreference -- handled Hindividual blankThisPage notifyBefore oenabled = "ASYM_WID_ANSWERS" /<> NULL buttonClick loc SYSTEM s_wid_targetObject LOCAL ansArray[][] "Feedback" ansFld = fb = "ASYM_WID_SummaryFeedbackList" ~ = fbArray fb = selLines = selectedtextlines c"clip" c"Msg" "OSMsg" c"NavPage" "hyperlink" _ASYMA_EditFeedback( UpdateThisPage buttonClick n = lockScreen ShowCurrentTab (n) notifyBefore o_currentTab /+ 1) sized sysPageUnitsPerPixel x1 = x1 - x1 x2 = x2 - x2 y1 = y1 - y1 y2 = y2 - y2 y = resizeTabs(1,x1,y1,x2,y2,xp,yp, m"hilite" = x1,y2,x1,y,x2-xp,y m"box grey" = x2-xp,y,x2-xp,y2-yp,x1+xp,y2-yp = x2,y,x2,y2,x1+xp,y2 c = c = 1 9" && c) = defBounds y; n = 1; n <= 3 tabRow = 1 btn = 9" && n) H0,-(yp * 2) Hxp*2 Hxp*2 Hyp*3 grp = Edge" newActiveRow,x1,y1,x2,y2,xp,yp,snap btnH = 315 -- magic Hxp*2 Hxp*2 currentRow = o_row toff = 3 cols = 2 ArrangeRow , x1,y1,x2,y2,xp,yp, y1 = y1 + ArrangeCheats x1,y1,x2,y2,xp,yp , x1,y1,x2,y2,xp,yp, , x1,y1,x2,y2,xp,yp, y1 = y1 + 1,x2,y2,xp,yp , x1,y1,x2,y2,xp,yp, y1 + , x1,y1,x2,y2,xp,yp, colSize = (x2-x1-xp*( -1)) / xoff = (colsize * (i-1)) + xp * (i-1) x1 + x1 + W, y1, , y1+ 9" && i+ resizeTabEdge ("tabEdge" && i+ arrangeCheats x1,y1,x2,y2,xp,yp yp2 = yp*2 U"cheat = x1,y1,x1,y1+ = x2,y1,x2,y1+ = x2-xp,y1,x2-xp,y1+ obj, bnds, x1 = x1 - x1 x2 = x2 - x2 y1 = y1 - y1 y2 = y2 - y2 xp2 = xp*2; = x2- $,y1, x1+ .,y1, x1,y1+yp2, x1,y2 = x2-xp,y1+ $x2-xp,y2 = x2-xp,y1+yp,x2,y1+ V+yp,x2,y2 notifyBefore olastSel = oselectedTextLines AASYM_Reset LOCAL ARRAY ansArray[][] pg = pgName = showself = <> "general" *<> "delayed feedback" = showSelf opropValue = y--*** TEMP bg = lastItem = ss = = ss; r<> NULL; fixAnsArray; "multiSelect" "SingleSelect" ofieldType UpdateThisPage BlankThisPage selectedTextlines SYSTEM {s_wid_targetObject -- y[][] -- " a dummy. sets up the main used work fanswers ss = = FALSE = ASYM_WID_AnsArray bg = ASYM_Container( dimensions( ) = 0 -- there was no stored fthat -- There nothing elseString = ASYM_GetString("Anything magic bg = n = txt = i][1] SPACE & i][10] = i][10] = fixupLine -- function returns a value; side effect, because you can't y[][] REAL weights xautoAssignWeight numAnswers = i][11] ASYM_isNumber( < 99 > 101 yesStr = Yes") noStr = The positive && "don't 100%. Redistribute automatically?")\ f"&" & "&" & DistributeWeights Ztotal, Hreference ZweightList i][11] = i][11] / addAnswer y[][] dlgPage = dlgCB = comboBox " xprepDlgCB ( ) > 1 -- -- "All named are already specified -- -- }were found on want type p?") f"&" & "&" & -- B"score" OK = ASYM_ShowDialog("subdialog"," "),"modal") isOpen e= TRUE close whatItem = -+1][i] = ;][i] J][i] answerWeight = 1 correct = ][1] = ][10] = ][11] = FixupLine , dflt s_wid_TargetWindow, s_wid_TargetObject alreadyThere, DDItems useObjectType = i][1] s_wid_targetWindow objList = getObjectList( whatName = d && (ASYM_itemOffset( ) = 0)\ ) = 0) = sortList( ) < 1 dropDownItems ListToTextLine( editAnswer y[][] ][1]) ][10] = ][10] = ][10] OK = Edit ][1] = ][10] <> ][10] = ][10] ][11] = 1 ][11] = 0 deleteAnswer y[][], temp[][] selectedtextlines ) <> down expandString( Delete ""%1""?"),\ ][1])\ f"&" & "&" & counter = 1 i <> I][j] = i][j] sel = y[][] (txt) i][1] = ; < 1 B = 1 graphic , isShift, isCtrl y[][] hitLine hitChar isCorrectToggle = ( ) > 0 $ = 1) > textlineCount( hitline toggleCorrect how ][10] = ][10] = ][10] = ][10] ][11] = fixupWeights blankThisPage a[][] = a[L][1] isElse = ( = ASYM_GetStandardString("< >","< a[L][10] = = bitmap myColor = "FBNavBook" B"FBNavPage" t <> UpdateThisPage selLines, AnsArray[][] Hreference, pg LOCAL txt,txtSpec, clipSpec, waitFlag, StageRef, OSMsg, DestPg, DestBk y; pg = BlankThisPage i = = ansArray[i][12] OKtxt = +tem j ][12] <> i = stageRef = OKclip = i = 3] <> 3] <> 3] <> i = OKmsg = ][15] <> i = OKdestPg = ][2] <> i = OKdestBk = ][4] <> -- visual update here oldLock = lockScreen fldTxt = "FBPlayText" fldClip = "FBPlayClip" fldOsMsg = "FBSendMsg" fldNavPg = fldNavBk = ASYM_GetString(" blankThisPage = lightGray default button 6 . . author skrefFocus "8ASYM_PostMsg buttonClick refBtn keyDown Cancel cancelBtn defBtn skrefFocus ASYM_IsWin31 enterPage skrefFocus setDefButton refBtn wordwrap button field skrefFocus pushbutton cancelBtn defBtn rkrefFocus notifybefore notifyBefore x = 13 orefBtn enabled ASYM_PostMsg "buttonClick", orefFocus ocancelBtn = B"Cancel" odefBtn = B"OK" ASYM_IsWin31() u= "pushbutton" setDefButton btn wrd1 = NULL OK = ( fieldType wordwrap) targetWindow = u = sysPageUnitsPerPixel b = b - x, b - y, b + x, b + y Mike Florence info_LastSavedBy 8/26/94 2:47:53 PM ASYM_LogName Claude Ostyn Drag Object - Question Properties Claude Ostyn _ASYM_HyperPath MS Sans Serif <BookPath> info_LastSaved Serif Mike Florence 10/13/95 7:30:29 PM INFO_Title ASYM_AuthorResetPrompt ASYM_LogAppend ASYM_LogEncrypt <auto> meUpdate sysPageUnitsPerPixel <> lastUnits e = TRUE buttonUpdate frameUpdate e= FALSE $d}l}@ :HDMEDIAPATH Arial Sans Serif Sans Serif MS Sans Serif SanSerif frameUpdate lastUnits enterpage frameUpdate sysPageUnitsPerPixel <> lastUnits e = TRUE frameUpdate e= FALSE Group id 66 of Page id 1 of Book "D:\HOOKWORK\WIDGETS\MULTWID.TBK" rgetObject Sans Serif Mike Florence 9/22/94 2:26:21 PM Mike Florence Mike Florence Claude Ostyn 8:16:32 PM 11/16/95 6:04:16 PM 12/12/95 11:46:54 AM Sans Serif Asymetrix Corporation sortlist ASYM_WorkWindow s_wid_targetObject s_wid_targetWindow tb40dlg.dll enterBook 4s_wid_targetObject, s_wid_targetWindow X"tb40dlg.dll" sortlist( B = NULL N = ASYM_WorkWindow() 11/28/95 2:20:56 PM 12/12/95 12:42:23 PM .'+ +F sortlist ASYM_WorkWindow s_wid_targetObject s_wid_targetWindow tb40dlg.dll enterBook select of background enterField 4s_wid_targetObject, s_wid_targetWindow X"tb40dlg.dll" sortlist( B = NULL N = ASYM_WorkWindow() fieldType ialog Feedback Text Page "clipChooser" Drag Object - Question Properties Page "general" ltiple Choice Question Properties SubDialog Add an Answer Page "AddAnswer" Page id 13 Multiple Choice #1 Question Properties general 15,15 lastUnits FALSE dirtyBit propsRead 3dField tbk_wid_type propValue propValue ASYM_Reset keyChar propValue notifyBefore ASYM_Reset ) > 32 string propType TimeMax Maximum time (secs): TriesMax Maximum tries: Question Name: plain enterPage notifyBefore A "try" is counted every time delayed feedback or score is provided. This option is ignored if "Cannot change responses" is checked.....ed.ed" option is enabled.bled. Automatically Reset Question:::::: (unnamed) ASYM_reset notifyBefore ASYM_reset sized 3DGroupBox tbk_wid_type Automatically repairs itself when sized. ASYM_WID_Description Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Shadow Highlight Limits group caption Limits on interaction ASYM_WID_TimeMax ASYM_WID_TimeMax propValue maxFld ASYM_WID_TimeMax TimeMax propValue maxFld ASYM_WID_TimeMax TimeMax buttonclick propValue val = "ASYM_WID_TimeMax" isType(real, B*1000) mode = > 0)) maxFld = enabled i/1000)) buttonclick logical propType Limit time 3dField tbk_wid_type ASYM_WID_TimeMax ASYM_WID_TriesMax ASYM_WID_TriesMax propValue maxFld TriesMax ASYM_WID_TriesMax propValue maxFld TriesMax ASYM_WID_TriesMax buttonclick propValue val = "ASYM_WID_TriesMax" isType(real, mode = > 0)) maxFld = enabled buttonclick logical propType Limit tries 3dField tbk_wid_type ASYM_WID_TriesMax 3dField tbk_wid_type ASYM_WID_AutoReset choice ,enterPage,leavePage,always propValue ASYM_GetString When leaving the page Always enterPage choice When entering the page leavePage Never always propValue choice selectchange ASYM_reset propValue ochoice ,always" = ASYM_GetString("Never") When entering the !leaving bAlways") odropDownItems = = TRUE oselectedItem = selectchange notifyBefore ASYM_reset sized propType choice Neverseaving the pagee Never When entering the page When leaving the page Always Possible answers update UpdateThisPage oAnsArray update enterPage Possible answers: %1 Correct: %2 ASYM_GetString Possible x correct y update notifyAfter UpdateThisPage selLines, AnsArray[][] Hreference update notifyBefore LOCAL *WORD i, n, corr n = dimensions( ansArray[i][10] = TRUE = expandString(ASYM_GetString("Possible x correct y",\ answers: %1 Correct: %2"),\ n, Possible answers: 1 Correct: 000swer(s): 0 Possible answers update UpdateThisPage update enterPage ASYM_GetString Score this question x scoring Score this question: %1 ASYM_WID_IsScored 7wASYM_Container update notifyAfter UpdateThisPage selLines, AnsArray[][] Hreference update notifyBefore B"ASYM_WID_IsScored"\ "scoring" ASYM_Container( ASYM_GetString("Yes") = expandString( question x",\ : %1"), Score this question: NosCorrect: 0swer(s): 0 Possible answers Immediate Feedback: Enabled (None specified) Possible answers update UpdateThisPage update enterPage Delayed feedback: %1 d6FBArray None specified false Summary feedback x found ASYM_GetString Specified update notifyAfter UpdateThisPage selLines, FBArray[][] Hreference update notifyBefore LOCAL WORD i, j found = ss = n = dimensions( j >= 3 j <= 12 i][j] <> ASYM_GetString("Specified") !None specified") = expandString( Jummary feedback x",\ "Delayed : %1"), Delayed feedback: None specified 0swer(s): 0 ASYM_Reset enterPage UpdateThisPage (unnamed) ASYM_BeenHere false !0"."." Widget Editor 94080216070211604290110 ASYM_TpID selectedAnswer AllowMultipleAnswer ansArrayElse autoAssignWeight Correct Incorrect Partially Correct fbArray <else> FALSE AnsArray defaultButton Button id 81 of Background id 4 defBtn needFix Button id 81 of Background id 4 refBtn Button id 82 of Background id 4 cancelBtn Button id 81 of Background id 4 refFocus default cancel buttonclick buttonclick close escape Cancel delayed feedback feedback %ASYM_WinHelp answers scoring general buttonClick keyDown buttonClick pg = pg = "general" ( = 1000 pg = "answers" G = 1100 pg = "scoring" f = 1110 pg = "feedback" = 1120 pg = "delayed = 1130 <> NULL ASYM_WinHelp( notifyBefore 3dField tbk_wid_type 360,1740 defpos ASYM_WID_ANSWERS array propType numCorrect numAnswers selectedItems FALSE useObjectType FiveTabFolder _currentTab cheat grey cheat black cheat white hilite tabEdge 1 white black tabEdge 2 white black tabEdge 3 white black tabEdge 4 white black tabEdge 5 white black Current Tab Edge white black sized sized "mask" sysPageUnitsPerPixel x1 = x2 = y1 = y2 = xp2 = xp*2; yp2 = yp*2 = x2-xp,y1, x1+ 5,y1, x1,y1+ 6, x1,y2 U"grey" = x2-xp,y1+ _,x2-xp,y2 = x2-xp,y1+yp,x2,y1+ +yp,x2,y2 white black Tab 1 135,390,1975,705 defBounds &1 - General Tab 2 1990,390,3830,705 defBounds &2 - Answers Tab 3 3845,390,5685,705 defBounds &3 - Scoring Tab 4 135,75,2902.5,390 defBounds &4 - Immediate Feedback Tab 5 2917.5,75,5685,390 defBounds &5 - Delayed Feedback box grey box black keyDown enterPage author leavePage leaveBackground ASYM_Reset enterBackground Answers isCorrect delete <else> propValue UpdateThisPage fldAns ASYM_WID_ANSWERS Delete deleteAnswer clear UpdateThisPage selLines, AnsArray[][] Hreference LOCAL txt,txtSpec, clipSpec, waitFlag, StageRef i = propValue B"isCorrect" = ansArray[i][10] = TRUE enabled B"delete" = fldAns = "ASYM_WID_ANSWERS" B"Delete" deleteAnswer 15,15 lastUnits FALSE dirtyBit propsRead IsCorrect Incorrect Correct ASYM_GetString propValue ASYM_WID_ANSWERS KtoggleCorrect propValue buttonClick propValue propValue ASYM_Reset propValue ASYM_GetString("Correct") Incorrect") buttonClick toggleCorrect "ASYM_WID_ANSWERS" notifyBefore ASYM_Reset count Add... ASYM_WID_ANSWERS EditAnswer buttonclick buttonclick EditAnswer "ASYM_WID_ANSWERS" Edit... Delete ASYM_WID_ANSWERS deleteAnswer buttonclick buttonclick deleteAnswer "ASYM_WID_ANSWERS" Delete ASYM_WID_AutoLockAnswer propValue propValue propValue propType Cannot change responses Possible answers update UpdateThisPage oAnsArray update enterPage ASYM_GetString Possible answers: %1 Correct: %2 Possible x correct y update notifyAfter UpdateThisPage selLines, AnsArray[][] Hreference update notifyBefore LOCAL *WORD i, n, corr n = dimensions( ansArray[i][10] = TRUE = expandString(ASYM_GetString("Possible x correct y",\ answers: %1 Correct: %2"),\ n, Possible answers: 2 Correct: 0swer(s): 0 (unnamed) ASYM_reset notifyBefore ASYM_reset sized 3DGroupBox tbk_wid_type Automatically repairs itself when sized. ASYM_WID_Description Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Shadow Highlight Caption Possible target objects The reader can drag and drop this widget. The name of the object onto which the widget is dropped is the response. . ASYM_WID_RejectWrong propValue propValue propValue logical propType Reject incorrect answers ASYM_WID_DragSnap propValue propValue propValue logical propType Snap to center of target ASYM_Reset enterPage enterPage UpdateThisPage Incorrect startTime FALSE ASYM_BeenHere false Scoring propValue answerWeight UpdateThisPage UpdateThisPage selLines, AnsArray[][] Hreference i = ansArray[i][11] propValue "answerWeight" = FALSE dirtyBit 15,15 lastUnits propsRead ASYM_WID_IsScored propValue MaxScore ASYM_WID_MaxScore ASYM_WID_RoundScore MinScore ASYM_WID_MinScore 7wASYM_Container propValue propValue buttonclick propValue pg = ASYM_Container( enabled "ASYM_WID_MaxScore" pg = pg = "ASYM_WID_MinScore" pg = pg = "ASYM_WID_RoundScore" pg = "scoring options box" pg = buttonclick logical propType Score this question maxScore Highest possible score: minScore Lowest possible score: Score weight of selected answer:r:: 3dField tbk_wid_type AnswerWeight propType ASYM_WID_AutoScoreWeight background 6/ASYMA_GetAuthorIni Widget Edit AutoWeight autoAssignWeight 7wASYM_Container propValue propValue n9ASYMA_SetAuthorIni Widget Edit AutoWeight background 8FixupWeights autoAssignWeight propValue 7wASYM_Container buttonClick background autoAssignWeight propValue 7wASYM_Container enterPage propValue = ASYMA_GetAuthorIni("Widget Edit","AutoWeight") autoAssignWeight ASYM_Container( /") = notifyBefore OK ASYMA_SetAuthorIni(" buttonClick FixupWeights Boolean propType Automatic 3dField tbk_wid_type ASYM_WID_MinScore RoundToMin ASYM_ExpandString Report the lowest score: %1 ASYM_GetString 7wASYM_Container propValue propValue propValue propValue leaveField propValue xisType(real, B"RoundToMin" ASYM_Container( ")= \ ASYM_ExpandString(ASYM_GetString(\ "Report the lowest score: %1"),\ propType 3dField tbk_wid_type ASYM_WID_MaxScore ASYM_ExpandString Report the highest score: %1 ASYM_GetString RoundToMax 7wASYM_Container propValue propValue propValue propValue leaveField propValue xisType(real, B"RoundToMax" ASYM_Container( ")= \ ASYM_ExpandString(ASYM_GetString(\ "Report the highest score: %1"),\ propType ASYM_WID_RoundScore ,&H.& Button roundToMin noRounding roundToMax propValue ,&H.& Button noRounding propValue propValue "roundToMax" "roundToMin" "noRounding" objs = BUTTON Zdefault STRING propType RoundScore Prompt For a partially correct response: NoRounding Use the weight assigned to each possible answer to xtra 1 compute an exact score RoundToMin Report the lowest score: 0 RoundToMax Report the highest score: 1 Possible answers update UpdateThisPage oAnsArray update enterPage Possible answers: %1 ASYM_GetString Correct answers: %2 Possible x correct y update notifyAfter UpdateThisPage selLines, AnsArray[][] Hreference update notifyBefore LOCAL *WORD i, n, corr n = dimensions( ansArray[i][10] = TRUE = expandString(ASYM_GetString("Possible x correct y",\ answers: %1" & CRLF & "Correct 2"),\ n, Possible answers: 4 Correct answers: 1s): 0 (unnamed) ASYM_reset notifyBefore ASYM_reset sized 3DGroupBox tbk_wid_type Automatically repairs itself when sized. ASYM_WID_Description Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Shadow Highlight Caption Possible answers enterPage ASYM_reset 8Z,Ps FixupWeights UpdateThisPage false feedback 15,15 lastUnits dirtyBit propsRead showImmediate IsImmediateFB false IsDetailedFB ASYM_WID_DelayFeedback propValue update propValue update enterPage update buttonClick ASYM_WID_Answers Immediate Feedback Options 7wASYM_Container update ASYM_WID_Answers leavePage false propValue asym_reset propValue update notifyBefore buttonClick isEnable = myPg = ASYM_Container( enabled "Immediate Feedback Options" "ASYM_WID_Answers" notifyAfter asym_reset propType Enable feedback at time of response Immediate Feedback Options (unnamed) ASYM_reset notifyBefore ASYM_reset sized 3DGroupBox tbk_wid_type Automatically repairs itself when sized. ASYM_WID_Description Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Shadow Highlight Possible answers group Possible answers ASYM_WID_ANSWERS HsupdateThisPage oansArray buttonClick buttonClick LOCAL ARRAY ansArray[][] theList bg = ss = dimensions( zi][10] TRUE -- i][11] > 0 selectedTextLines "ASYM_WID_ANSWERS" bg = updateThisPage Select All &Correct ASYM_WID_ANSWERS HsupdateThisPage oansArray buttonClick buttonClick LOCAL ARRAY ansArray[][] theList bg = ss = dimensions( zi][10] <> TRUE selectedTextLines "ASYM_WID_ANSWERS" bg = updateThisPage Select All &Incorrect Send OpenScript: fbtextprompt Feedback text: Go to page: Of book: fbclipprompt Play media clip: FBNavBook propType FBPlayClip FBSendMsg coreedback FBNavPage FBPlayText EditFeedbackButtons FBPlayClip Click to select file helpText exclude FBPlayText Click to select file helpText exclude FBSendMsg Click to select file helpText exclude FBNavPage Click to select file helpText exclude enterPage asym_reset leavePage false ASYM_BeenHere Delayed Feedback propsRead FALSE IsDetailedFB 3dField tbk_wid_type ASYM_WID_SummaryFeedbackList array propType numCorrect numAnswers selectedItems useObjectType All Correct All Incorrect Partially Correct Feedback to execute on request when the responses are...e, and the responses are...ay its fPlaeedback, and the responses are... one or more): (unnamed) ASYM_reset notifyBefore ASYM_reset sized 3DGroupBox tbk_wid_type Automatically repairs itself when sized. ASYM_WID_Description Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Shadow Highlight Question feedback group Caption Question feedback Send OpenScript: fbtextprompt Feedback text: Go to page: Of book: fbclipprompt Play media clip: FBNavBook propType FBPlayClip FBSendMsg FBNavPage FBPlayText EditFeedbackButtons ansFld d6fbArray ASYM_WID_ANSWERS false s_wid_targetObject NavPage Feedback selLines OSMsg HsUpdateThisPage ASYM_WID_SummaryFeedbackList _ASYMA_EditFeedback oansArray oansArray e6fbArray hyperlink buttonClick buttonClick loc SYSTEM s_wid_targetObject LOCAL ansArray[][] "Feedback" ansFld = "ASYM_WID_ANSWERS" fb = "ASYM_WID_SummaryFeedbackList" = fbArray fb = selLines = selectedtextlines NULL c"clip" c"Msg" "OSMsg" c"NavPage" "hyperlink" _ASYMA_EditFeedback( UpdateThisPage FBPlayClip Click to select file helpText exclude FBPlayText Click to select file helpText exclude FBSendMsg Click to select file helpText exclude FBNavPage Click to select file helpText exclude leavePage leaveBackground ASYM_Reset enterPage enterBackground false addAnswer keyChar x = 27 close 15,15 lastUnits Select or enter an object name:.............age..nswered. 3dField tbk_wid_type answer ,&H.& s_wid_targetWindow FALSE s_wid_targetObject objList whatName sortList xenterPage notifyBefore xenterPage 4s_wid_targetWindow, s_wid_targetObject dropdownitems = NULL A <> shownBy objList = sortList(getObjectList( ,"",FALSE)) whatName = t <> odropDownItems = flag = -TRUE CRLF& foonamed) (unnamed) Topunnamed)" Field "(unnamed)" Rectangle "blue" Rectangle "green" Rectangle "red" Any named object onto which you drop this widget can be an answer. The combo box below shows all the object names found on this page, except the names already specified as answers.ers. score Incorrect Correct ASYM_GetString propValue 9touched propValue buttonClick propValue propValue ASYM_Reset propValue ASYM_GetString("Correct") Incorrect") buttonClick otouched = notifyBefore ASYM_Reset touched rrect ASYM_Reset xenterPage Incorrect ASYM_BeenHere dialogs CANCEL button "CANCEL" of field single button "OK" of syscuror default keyDown -- generic dialog handler -- test Bexits so, does action isObject(" B""CANCEL"" buttonclick syscuror = default n = keyEnter B""OK"" = NULL "single" fieldType B"OK" 94080216150514626234020 ASYM_TpID defaultButton Button id 9 of Background id 5 defBtn needFix Button id 9 of Background id 5 refBtn Button id 2 of Background id 5 cancelBtn ComboBox id 13 of Page id 21 refFocus buttonClick buttonClick default cancel buttonClick buttonClick close escape Cancel addAnswer FBPlayText %ASYM_WinHelp FBSendMsg buttonclick keyDown buttonclick = "FBPlayText" ASYM_WinHelp(1030,"") = "FBSendMsg" /40,"") = "addAnswer" T50,"") notifyBefore keyDown author enterPage Delayed Feedback Answers feedback general DragImage Scoring addAnswer Widget Editor dialogs